home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh13a.d64 / 40k-listing 1 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  972b  |  32 lines
  1. 100 GOTO300
  2. 110 :
  3. 120 :   ******************************
  4. 130 :   *                            *
  5. 140 :   * DEMOPROGRAMM ZUM KOPIEREN  *
  6. 150 :   * DES SPEICHERBEREICHS $C000 *
  7. 160 :   * -$FFFF NACH $8000-$BFFF IN *
  8. 170 :   * DER FLOPPY 1541            *
  9. 180 :   *                            *
  10. 190 :   ******************************
  11. 200 :   *                            *
  12. 210 :   * VON                        *
  13. 220 :   *                            *
  14. 230 :   * DIETER PRIESS              *
  15. 240 :   * SCHUETZENSTR. 35           *
  16. 250 :   * 2400 LUEBECK 1             *
  17. 260 :   * TEL.: 0451/863222          *
  18. 270 :   *                            *
  19. 280 :   ******************************
  20. 290 :
  21. 300 FORI=0TO32:READX:S=S+X:NEXTI:IFS<>5511THENPRINT"[198]EHLER IN [196]ATAS !":END
  22. 310 RESTORE
  23. 320 OPEN1,8,15
  24. 330 FORI=0TO32
  25. 340 READX
  26. 350 PRINT#1,"M-W"CHR$(I)CHR$(5)CHR$(1)CHR$(X)
  27. 360 NEXTI
  28. 370 PRINT#1,"U3"
  29. 380 CLOSE1
  30. 390 DATA120,160,0,162,192,169,128,132,192,132,194,134,193,133,195,162,64
  31. 400 DATA177,192,145,194,200,208,249,230,193,230,195,202,208,242,88,96
  32.